HexToBin a BinToHex
Otázka od: Martin Kasman
4. 10. 2002 10:37
Ako sa pouzivaju funkcie HexToBin a BinToHex? V helpe je cosi o tom, ale moc
tomu nechapem.
Dajme tomu, ze mam v retazci ABC:='B9' a do label1.caption chcem dat binarny
kod a z label1.caption do label2.caption zase nazad hexadecimalny.
Vdaka za kazdu radu.
Odpovedá: Peter Surovy
4. 10. 2002 16:16
Ahoj
----- Original Message -----
From: "Martin Kasman" <martinkasman@centrum.sk>
Sent: Thursday, October 03, 2002 8:47 PM
> Ako sa pouzivaju funkcie HexToBin a BinToHex? V helpe je cosi o tom, ale
moc
> tomu nechapem.
-- jaky mas help? ja mam D5 Ent ale tieto funkcie tam nie
su dokumentovane 
no ale k veci:HexToBin a BinToHex transformuju
data v bytoch! na textovu formu t.j. do hexadecimalneho tvaru.
Takze ak cakas nejake jednotky a nuly toto nie je ono. 
BinToHex Ti prevedie hodnoty v jednotlivych bytoch
na text a ta druha zas naopak.
Text rozumej hodnotu v 16 kovej sustave
> Dajme tomu, ze mam v retazci ABC:='B9' a do label1.caption chcem dat
binarny
> kod a z label1.caption do label2.caption zase nazad hexadecimalny.
toto to spravi v opacnom poradi ale dufam ze to je pochopitelne :
procedure TForm1.Button1Click(Sender: TObject);
var
grco: byte;
Buff: array[0..SizeOf(byte) * 2] of Char;
//dvojnasobok kvoli tomu ze jeden byte su dva hex znaky
begin
grco := 255;
BinToHex(@grco, Buff, SizeOf(Buff)-1);
Buff[SizeOf(Buff) - 1] := #0;
Label1.Caption := 'V texte grco vyzera ako ' + buff;
HexToBin(Buff, @grco, SizeOf(Buff) - 1);
Label2.Caption:='Binarny kod je : ' + IntToStr(grco);
end;